home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 40 / Issue 40.iso / pc / UKWeb / 00023_gotoIWKS.ls < prev    next >
Encoding:
Text File  |  2000-09-25  |  490 b   |  19 lines
  1. on mouseWithin
  2.   cursor(280)
  3.   sprite(the currentSpriteNum).member = member("arrowstubblack")
  4.   member("IWKSText").foreColor = 0
  5.   put "To read further information about the Internet.Works Web site, www.iwks.com, click here" into member "InfoField"
  6. end
  7.  
  8. on mouseLeave
  9.   cursor(0)
  10.   member("IWKSText").foreColor = 255
  11.   sprite(the currentSpriteNum).member = member("arrowstub")
  12.   put EMPTY into member "InfoField"
  13. end
  14.  
  15. on mouseUp
  16.   member("IWKSText").foreColor = 255
  17.   play movie "IWKS"
  18. end
  19.